home *** CD-ROM | disk | FTP | other *** search
- /jeffDict 50 dict def jeffDict begin /pwid 502 def /marg 60 def /bmarg 30 def /newswid 144 def /addchwid 324 def /addchht 200 def /dueswid 162 def /cLine 110 def /rshow {dup stringwidth pop neg 0 rmoveto show} def /NOAS { gsave 60 700 translate /ch 48 def /lw 10 def /w1 lw 2 div def /nf 5 sqrt 2 div 1 sub w1 mul def /oh ch lw sub def /f3 5 12 div oh mul def /f3n f3 neg def /ow f3 3 mul 2 div def /r ch w1 sub 8 sqrt 2 add div .3 add def /2sqr 2 sqrt r mul def /2isqr 1 2 sqrt div r mul def /sd ch lw add w1 add ow add nf sub nf sub def /angle 1 1 8 sqrt div atan def sd r add r add w1 3 mul add 18 moveto /Helvetica-Bold findfont 18 scalefont setfont (New Orleans) show sd r add r add w1 3 mul add 0 moveto (Apple Society) show -1 -5 moveto pwid 2 add 0 rlineto .1 setlinewidth stroke /Helvetica findfont 9 scalefont setfont pwid -16 moveto rshow 0 -16 moveto -0.09234 0.(1430 Tulane Avenue, New Orleans, LA 70112 Telephone (504) 588-5668)ashow newpath 0 0 moveto 0 ch lineto sd r add r add w1 add 0 rlineto 0 ch neg rlineto 0 0 lineto clip lw setlinewidth newpath w1 0 moveto 0 ch rlineto nf neg 0 rmoveto ch dup 2 div exch neg rlineto nf neg 0 rmoveto 0 ch rlineto stroke newpath sd r sub w1 moveto sd r add r w1 add r 270 angle arc sd r add 2isqr 3 mul r add w1 add r 180 angle add 0 arcn stroke sd 0 moveto ch dup 3 div neg exch rlineto ch 2 div lw add ow 2 div add nf sub nf sub ch lineto ch 3 div ch neg rlineto sd 0 lineto fill ch 2 div lw add ow 2 div add nf sub nf sub w1 moveto f3n 0 f3n oh 0 oh rcurveto f3 0 f3 oh neg 0 oh neg rcurveto closepath gsave fill grestore 1 setgray stroke sd w1 add w1 -3 div moveto ch dup 3 div neg exch w1 3 div add rlineto nf dup add neg nf rmoveto ch dup 3 div neg exch neg lw -3 div add rlineto ch 2 div lw add ow add w1 add nf sub nf sub w1 3 mul moveto ch 2 div 0 rlineto stroke grestore /vpos 670 def} def /newline {/vpos vpos voff sub def hoff vpos moveto} def /cprint {dup () ne {newline show} {pop} ifelse } def /student {/Helvetica findfont 9 scalefont setfont /hoff marg def /voff 9 def newline show cprint newline (Tulane University School of Medicine) show} def /Address {/Helvetica findfont 9 scalefont setfont /hoff marg def /voff 9 def newline show cprint cprint cprint newline show (,) show 4 0 rmoveto show 8 0 rmoveto show} def /addBox {gsave marg bmarg translate 72 addchht 36 sub moveto 0.13015 0. 32 0.01301 0. (\(If there are errors, please write the correct)awidthshow 84 addchht 46 sub moveto -0.01344 0.(information below and return this slip\))ashow 87 addchht 15 sub moveto /Helvetica-BoldOblique findfont 9 scalefont setfont 3.02810 0. 32 0.30281 0. (Member's Name and Address)awidthshow 0 0 moveto addchwid 0 lineto addchwid addchht lineto 0 addchht lineto 0 0 lineto closepath stroke -1 264 bmarg sub moveto pwid 2 add 0 rlineto 0 setlinewidth stroke /Helvetica findfont 9 scalefont setfont /hoff 24 def /voff -10 def /vpos -4 def newline} def /studAdd {addBox (Tulane University School of Medicine) show cprint newline show grestore} def /addch {addBox show (,) show 4 0 rmoveto show 8 0 rmoveto show cprint cprint cprint newline show grestore} def /theAmt {newline -0.03749 0. (that you owe $)ashow show (.00) show} def /noBucks {newline -0.03749 0. (that you are fully paid.)ashow pop} def /cprint {dup () ne {newline show} {pop} ifelse } def /dues {gsave marg pwid add dueswid sub bmarg translate 0 0 moveto dueswid 0 lineto dueswid addchht lineto 0 addchht lineto 0 0 lineto closepath stroke /hoff 12 def /voff 10 def /vpos addchht 27 sub def hoff 9 add addchht 15 sub moveto /Helvetica-BoldOblique findfont 9 scalefont setfont 3.57604 0. 32 0.35760 0.(Annual Dues Information)awidthshow newline /Helvetica findfont 9 scalefont setfont 1.20697 0. 32 0.12069 0.(For your )awidthshow /Helvetica-BoldOblique findfont 9 scalefont setfont 3.01406 0. 32 0.30140 0.(Membership Dues)awidthshow /Helvetica findfont 9 scalefont setfont 1.12243 0. 32 0.11224 0.( the)awidthshow newline 1.43783 0. 32 0.14378 0.(Society's Records currently show)awidthshow dup (0) eq {noBucks} {theAmt} ifelse /vpos vpos 15 sub def newline 2.30361 0. 32 0.23036 0.(Please make your check out to)awidthshow /Helvetica-BoldOblique findfont 9 scalefont setfont newline 0.10295 0.(NOAS)ashow /Helvetica findfont 9 scalefont setfont 0.18203 0. 32 0.01820 0. ( and Mail with this slip to:)awidthshow /vpos -4 def /voff -10 def newline -0.07495 0.(New Orleans, LA 70112.)ashow newline -0.06195 0. (Box 4, 1430 Tulane Avenue)ashow newline (Tulane University Medical School)show newline 0.16540 0. 32 0.01654 0.(New Orleans Apple Society)awidthshow newline 0.22415 0. 32 0.02241 0.(The Secretary)awidthshow grestore } def /myText1 {gsave marg 580 translate 9 myLine /Helvetica findfont 10 scalefont setfont 1.42181 0. 32 0.14218 0. (The NOAS cordially invites you to the ) awidthshow /Helvetica-BoldOblique findfont 10 scalefont setfont 2.60391 0. 32 0.26039 0.(Monthly Case Conference)awidthshow /Helvetica findfont 10 scalefont setfont 1.35131 0. 32 0.13513 0.( to be held in the Mayan Room \(Room) awidthshow 22 myLine 2.05413 0. 32 0.20541 0.(7704\), located on the 7) awidthshow 1 3 rmoveto /Helvetica findfont 9 scalefont setfont 0.36393 0. (th)ashow -1 -3 rmoveto /Helvetica findfont 10 scalefont setfont 1.68701 0. 32 0.16870 0.( Floor, Tulane University Medical Center Hospital. There is a buffet of "Poboy")awidthshow 34 myLine 0.15289 0. 32 0.01528 0. (sandwiches, beer, soft drinks, and desserts prior to the conference for your enjoyment.)awidthshow grestore} def /myLine {0 exch neg moveto} def /dearDR {gsave marg 600 translate 9 myLine /Helvetica findfont 10 scalefont setfont (Dear ) show show (;) show grestore} def /schedule {marg 525 translate /vpos 0 def 0 vpos moveto /Helvetica-Bold findfont 10 scalefont setfont (Schedule for )show show /Helvetica findfont 10 scalefont setfont /vpos vpos 18 sub def cLine vpos moveto (6:30 PM)rshow 5 0 rmoveto (Buffet served)show /vpos vpos 11 sub def cLine vpos moveto (7:00 PM)rshow 5 0 rmoveto (Presentation of Cases)show /vpos vpos 11 sub def cLine vpos moveto (9:00 PM)rshow 5 0 rmoveto (Adjournment)show /vpos vpos 20 sub def} def /sponsor {/Helvetica-Bold findfont 10 scalefont setfont cLine vpos moveto (Educational Sponsor:)rshow 5 0 rmoveto /Helvetica findfont 10 scalefont setfont show /vpos vpos 10 sub def /Helvetica-Bold findfont 10 scalefont setfont cLine vpos moveto (Moderator:)rshow 5 0 rmoveto /Helvetica findfont 10 scalefont setfont show /vpos vpos 18 sub def} def /case {cLine vpos moveto /Helvetica-Bold findfont 10 scalefont setfont (Topic:)rshow /Helvetica findfont 10 scalefont setfont 5 0 rmoveto show /vpos vpos 10 sub def cLine vpos moveto /Helvetica-Bold findfont 10 scalefont setfont (Presentor:)rshow /Helvetica findfont 10 scalefont setfont 5 0 rmoveto show /vpos vpos 12 sub def} def /signed {/vpos vpos 8 sub def 0 vpos moveto (We appreciate your continued support of this highly enjoyable and informative meeting.) show /vpos vpos 20 sub def 250 vpos moveto (Sincerely,) show /vpos vpos 50 sub def 250 vpos moveto (Jeff E Mandel MD MS) show /vpos vpos 11 sub def 250 vpos moveto (Head Hacker) show} def /CME {gsave marg pwid add dueswid sub bmarg translate 0 0 moveto dueswid 0 lineto dueswid addchht lineto 0 addchht lineto 0 0 lineto closepath stroke /Helvetica-BoldOblique findfont 10 scalefont setfont dueswid 2 div addchht 2 div moveto (CME Credit of Two Hours) dup stringwidth pop neg 2 div 0 rmoveto show grestore} def /CRNA {/vpos vpos 8 sub def 0 vpos moveto /Helvetica findfont 10 scalefont setfont 0.52627 0. 32 0.05262 0.(We welcome your participation. You will receive 2 hours of Continuing Education Credit for attendance. Please)awidthshow /vpos vpos 11 sub def 0 vpos moveto -0.01049 0.(circulate this announcement to any recent CRNA additions to your staff.)ashow /vpos vpos 10 sub def} def end
